﻿Public Class FrmIntro

  Private Sub FrmIntro_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Me.Text = "Project linker solution - intro"
  End Sub

  Private Sub btnSettings_Click(sender As System.Object, e As System.EventArgs) Handles btnSettings.Click
    Dim f As New FrmSettings()
    f.ShowDialog()
  End Sub

  Private Sub btnSimpleLinking_Click(sender As System.Object, e As System.EventArgs) Handles btnSimpleLinking.Click

    Me.Close()

    Dim provider = New SimpleLinkingProvider()

    provider.Run(Root.CurrentApplication)

  End Sub

  Private Sub btnProjectToAll_Click(sender As System.Object, e As System.EventArgs) Handles btnProjectToAll.Click
    Me.Close()

    Dim provider = New LinkByProjectNameProvider

    provider.Run(Root.CurrentApplication)
  End Sub
End Class